home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / redir.com / REDIRTST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-09  |  713 b   |  28 lines
  1. {===============================================}
  2. { Test program for I/O Redirection unit (REDIR) }
  3. { Richard Casey                                 }
  4. { CIS 72247,151                                 }
  5. {===============================================}
  6.  
  7. {===========================================================================
  8.  
  9. This sample program uses the ExecRedirect procedure to sort one file
  10. (SAMPLE.DAT) into another (SAMPLE.SRT) using the DOS SORT filter.
  11.  
  12. ===========================================================================}
  13.  
  14. {$M 8192,0,0}
  15.  
  16. program RedirTst;
  17.  
  18. uses Dos,Redir;
  19.  
  20. var
  21.   Status : word;
  22.  
  23. begin
  24.  
  25.   ExecRedirect('sort','sample.dat','sample.srt',Status);
  26.  
  27. end.
  28.